CD-ROM Today (Latin America) Volume 1 #6/CD-ROM Today 6 Latam.iso/referenc/evol/map.dxr/00045_runaround.ls

Text File | 1996-11-08 | 1.5 KB | 73 lines

on runaround
  global movelist, dir, dest
  repeat with t in movelist
    set locpoint to []
    case t of
      1:
        set locpoint to gang1()
      2:
        set locpoint to gang2()
      3:
        set locpoint to gang3()
      4:
        set locpoint to gang4()
      5:
        set locpoint to gang5()
      6:
        set locpoint to gang6()
      7:
        set locpoint to gang7()
      8:
        set locpoint to gang8()
      9:
        set locpoint to gang9()
      10:
        set locpoint to gang10()
      11:
        set locpoint to gang11()
      12:
        set locpoint to gang12()
      31:
        set locpoint to westplat()
      32:
        set locpoint to northplat()
      33:
        set locpoint to eastplat()
      34:
        set locpoint to southplat()
      50:
        set locpoint to island()
      51:
        set locpoint to debateroom()
      52:
        set locpoint to studyroom()
      53:
        set locpoint to collectingroom()
      54:
        set locpoint to exitroom()
      otherwise:
        put "error no case of t pos"
        stop()
    end case
    set the locH of sprite 40 to getAt(locpoint, 1)
    set the locV of sprite 40 to getAt(locpoint, 2)
    updateStage()
    doflasher()
    textscroll()
    startTimer()
    repeat while the timer < 5
      nothing()
    end repeat
  end repeat
end

on doroutef
  global routef, moveendlist, dest
  set routef to routef + 1
  if routef = 13 then
    set routef to 1
  end if
  set moveendlist to [routef]
  set dest to routef
end